home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
geschaef
/
ds0093
/
topfakt
/
adrlist3.for
< prev
next >
Wrap
Text File
|
1993-06-30
|
2KB
|
49 lines
/ Adressen-Kurzliste
^17 ^E
^12^BAdressen-Kurzliste ^b^17
/
!#VORHERIGE_GRUPPE:= "' '"
Seite: #SEITE:8:0
Stand: #DATUM
Nr. Vorname Name Strasse Land PLZ Ort
─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
/23456 1234567890 123456789012345678901234567890 123456789012345678901234567890 123 12345 123456789012345678901234567890
/
!LISTE:57 // Druck Liste maximal bis Druckzeile 57
/
!#Anz:= #Anz + 1
!WENN #Gruppe <> ' ' .AND. #Vorherige_Gruppe <> #Gruppe
#Gruppentitel #Gruppe // Ausgabe der Gruppe bei entsprechender Sortierung
!ENDEWENN
/
#NR #VORNAME #NAME #STRASSE #LAND #PLZ #ORT
/
!#vorherige_Gruppe:= #Gruppe
!ENDELISTE
/
!WENN #LETZTESEITE
─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Anzahl der aufgelisteten Adressen: #ANZ
!ENDEWENN
/
!SEITENAUSWURF
!FORMULARENDE // alles, was hiernach kommt, wird nicht mehr gedruckt...
!PLATZHALTER
#NR, kun->kdnr
#VORNAME, Substr( kun->n1, 1, 10) // die ersten 10 Zeichen drucken
#NAME, kun->n2
#STRASSE, kun->strasse
#LAND, kun->land
#PLZ, kun->plz
#ORT, kun->ort
#ANZ, anz // Anzahl der Adressen zählen
#GRUPPE, IF( 'Gruppe'$ cKunSort, kun->Gruppe, IF( 'Status'$cKunSort, kun->Status, '') )
#GRUPPENTITEL, IF( 'Gruppe'$ cKunSort, 'GRUPPE: ', IF( 'Status'$cKunSort, 'STATUS: ', ''))
#VORHERIGE_GRUPPE, vorhergruppe
!ENDE PLATZHALTER